blob: fb458061768acdef32a22b1c82020091284ab4ec (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
SUBROUTINE POH
WRITE(*,10)
10 FORMAT(1X,'Odlicno! Postajas mojster. Ko bos dobil na'/,
* 1x,'eno mojo zmago eno svojo, obvladas igro in za tebe'/,
* 1x,'ni vec zanimiva. Seveda pri primernem stevilu'/,1x,
* 'vrstic in zvezdic ter nivoju 4.')
C PAUSE '<ENTER>'
write(*,*)'<ENTER>'
read(*,*)
RETURN
END
|
